S▌STEM NE DURUMDA?
▄zerinde τal²■t²≡²n²z program bir tak²m Windows 95 API'leri veya a≡ deste≡i kullan²yor fakat API'ler Windows 95 Gⁿvenli Kip'teyken τal²■m²yorsa program²n²z² bu y÷nde programlayabilir Windows 95'in hangi kipte τal²■t²≡²n² anlamas²n² sa≡layabilirsiniz. ╓rnek program²m²z Windows 95'in nas²l ba■lat²ld²≡²n² yine baz² API'leri kullanarak anlayabiliyor.A■a≡²daki kodlar² formdan ba≡²ms²z bir modⁿle yerle■tirdikten sonra di≡er sat²rlar² form ⁿzerinde bir komut butonu olu■turarak iτerisine yerle■tirin.
Option Explicit Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Public Const SM_CLEANBOOT = 67 Private Sub Command1_Click() Select Case GetSystemMetrics(SM_CLEANBOOT) Case 1: MsgBox "Sistem Gⁿvenli Kipte τal²■²yor." Case 2: MsgBox "Sistem A≡ destekli gⁿvenli kipte τal²■²yor" Case Else: MsgBox "Sistem normal olarak i■liyor." End Select End Sub